home *** CD-ROM | disk | FTP | other *** search
/ Kit PC World De Ampliacion De Windows 95 / Kit PC World de ampliacion de Windows 95.iso / internet / sweeper / samples / olecon~1 / wizards / automain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-11-22  |  6.6 KB  |  199 lines
  1. VERSION 4.00
  2. Begin VB.Form frmMainWizard 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Create Automation Server"
  5.    ClientHeight    =   4050
  6.    ClientLeft      =   2460
  7.    ClientTop       =   2910
  8.    ClientWidth     =   6810
  9.    Height          =   4455
  10.    Left            =   2400
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4050
  15.    ScaleWidth      =   6810
  16.    ShowInTaskbar   =   0   'False
  17.    Top             =   2565
  18.    Width           =   6930
  19.    Begin VB.CheckBox chkSatellite 
  20.       Caption         =   "Use Satellite DLL &Localization"
  21.       Height          =   375
  22.       Left            =   1560
  23.       TabIndex        =   6
  24.       Top             =   2400
  25.       Visible         =   0   'False
  26.       Width           =   3015
  27.    End
  28.    Begin VB.CheckBox chkLoser 
  29.       Caption         =   "I need to be used with a &retarded system and must not have LFN's"
  30.       Height          =   375
  31.       Left            =   1560
  32.       TabIndex        =   5
  33.       Top             =   2760
  34.       Visible         =   0   'False
  35.       Width           =   5055
  36.    End
  37.    Begin VB.TextBox txtUseful 
  38.       Height          =   375
  39.       Left            =   1440
  40.       TabIndex        =   4
  41.       Text            =   "Text1"
  42.       Top             =   1440
  43.       Visible         =   0   'False
  44.       Width           =   5175
  45.    End
  46.    Begin VB.CommandButton cmdNext 
  47.       Caption         =   "&Next >"
  48.       Default         =   -1  'True
  49.       Height          =   375
  50.       Left            =   4320
  51.       TabIndex        =   1
  52.       Top             =   3555
  53.       Width           =   1095
  54.    End
  55.    Begin VB.CommandButton btnFinishCancel 
  56.       Cancel          =   -1  'True
  57.       Caption         =   "Cancel"
  58.       Height          =   375
  59.       Left            =   5520
  60.       TabIndex        =   2
  61.       Top             =   3555
  62.       Width           =   1095
  63.    End
  64.    Begin VB.CommandButton cmdBack 
  65.       Caption         =   "< &Back"
  66.       Enabled         =   0   'False
  67.       Height          =   375
  68.       Left            =   3240
  69.       TabIndex        =   0
  70.       Top             =   3555
  71.       Width           =   1095
  72.    End
  73.    Begin VB.Label lblMessage 
  74.       Caption         =   "Welcome to the Automation Server Creation Wizard. Please Click ""Next"" to begin."
  75.       Height          =   975
  76.       Left            =   1440
  77.       TabIndex        =   3
  78.       Top             =   240
  79.       Width           =   5175
  80.    End
  81.    Begin VB.Line Line2 
  82.       BorderColor     =   &H00FFFFFF&
  83.       X1              =   120
  84.       X2              =   6600
  85.       Y1              =   3375
  86.       Y2              =   3375
  87.    End
  88.    Begin VB.Line Line1 
  89.       BorderColor     =   &H00808080&
  90.       X1              =   120
  91.       X2              =   6600
  92.       Y1              =   3360
  93.       Y2              =   3360
  94.    End
  95. Attribute VB_Name = "frmMainWizard"
  96. Attribute VB_Creatable = False
  97. Attribute VB_Exposed = False
  98. Private Sub btnFinishCancel_Click()
  99.     If iStage = STAGE_FINISHING Then
  100.         Unload Me
  101.     Else
  102.         TerminateApplication
  103.     End If
  104. End Sub
  105. Private Sub cbosubclass_Click()
  106.     g_szSubClassName = cbosubclass.List(cbosubclass.ListIndex)
  107. End Sub
  108. Private Sub chkloser_Click()
  109.     g_fLoser = chkloser.Value
  110. End Sub
  111. Private Sub chkSatellite_Click()
  112.     g_fSatellite = chkSatellite.Value
  113. End Sub
  114. Private Sub cmdBack_Click()
  115.     iStage = iStage - 1
  116.     If iStage = STAGE_SUBCLASS And chkSubClass.Value <> vbChecked Then iStage = iStage - 1
  117.     m_SwitchPage
  118. End Sub
  119. Private Sub cmdNext_Click()
  120.     If iStage = STAGE_CONTROLNAME And chkSubClass.Value <> vbChecked Then iStage = iStage + 1
  121.     iStage = iStage + 1
  122.     m_SwitchPage
  123. End Sub
  124. Private Sub Form_Load()
  125.     Top = (Screen.Height - Height) / 3
  126.     Left = (Screen.Width - Width) / 2
  127. End Sub
  128. Private Sub m_SwitchPage()
  129.     Select Case iStage
  130.         Case STAGE_WELCOME
  131.             lblmessage = "Welcome to the Control Creation Wizard. Please Click ""Next"" to begin."
  132.             chkSatellite.Visible = False
  133.             chkSubClass.Visible = False
  134.             cbosubclass.Visible = False
  135.             txtuseful.Visible = False
  136.             chkSubClass.Visible = False
  137.             chkloser.Visible = False
  138.             cmdBack.Enabled = False
  139.             cmdNext.Enabled = True
  140.             
  141.         Case STAGE_CONTROLNAME
  142.             lblmessage = "Please Enter a Name for your Control."
  143.             chkSatellite.Visible = True
  144.             txtuseful.Text = szControlName
  145.             chkSubClass.Visible = True
  146.             cbosubclass.Visible = False
  147.             chkloser.Visible = True
  148.             txtuseful.Visible = True
  149.             cmdBack.Enabled = True
  150.             cmdNext.Enabled = True
  151.             txtuseful.SetFocus
  152.         Case STAGE_SUBCLASS
  153.             lblmessage = "Please Choose a control class on which to base your control."
  154.             chkSatellite.Visible = False
  155.             chkSubClass.Visible = False
  156.             cbosubclass.Visible = True
  157.             cbosubclass.SetFocus
  158.             chkloser.Visible = False
  159.             txtuseful.Visible = False
  160.             cmdBack.Enabled = True
  161.             cmdNext.Enabled = True
  162.         Case STAGE_CONTROLDIR
  163.             lblmessage = "Please Enter the location you'd like the source files to go."
  164.             chkSatellite.Visible = False
  165.             chkSubClass.Visible = False
  166.             cbosubclass.Visible = False
  167.             txtuseful.Text = szFinalDir
  168.             txtuseful.Visible = True
  169.             cmdBack.Enabled = True
  170.             chkloser.Visible = False
  171.             cmdNext.Enabled = True
  172.             txtuseful.SetFocus
  173.         Case STAGE_FINISHING
  174.             lblmessage = "Thank you.  Please Choose Finish to Complete the Creation of your control."
  175.             chkSatellite.Visible = False
  176.             chkSubClass.Visible = False
  177.             cbosubclass.Visible = False
  178.             txtuseful.Visible = False
  179.             chkloser.Visible = False
  180.             cmdBack.Enabled = True
  181.             cmdNext.Enabled = False
  182.             btnFinishCancel.Caption = "&Finish"
  183.             btnFinishCancel.SetFocus
  184.             
  185.     End Select
  186.                 
  187.             
  188.             
  189. End Sub
  190. Private Sub txtuseful_Change()
  191.     Select Case iStage
  192.         Case STAGE_CONTROLNAME
  193.             szControlName = txtuseful.Text
  194.         Case STAGE_CONTROLDIR
  195.             szFinalDir = txtuseful.Text
  196.     End Select
  197.         
  198. End Sub
  199.